(XLISP::CHECK-FSL-VERSION 1 4)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(NIL #K(#(80 1 1 0 0 11 0 1) #(0) #(NIL) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(INSTALL-VISTA #K(#(80 1 0 2 38 0 1 38 1 2 25 2 0 2 1 2) #(0) #(VISTA-HYPER-INSTALL-PROTO :NEW SEND) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 2 0 1 4 39 2 3 23 3 4 1 2 21 0 1 2 4 0 2 4 1 3 23 4 4 1 2 23 5 3 2 3 4 0 2 4 16 4 5 21 1 4 5 4 38 6 6 23 7 0 3 3 6 5 17 4 4 16 4 5 21 1 4 5 4 38 8 6 23 7 0 4 3 6 1 2 23 9 0 2 1 3 11 0 1) #(0 19 24 29 46 67) #(VISTA-HYPER-INSTALL-PROTO NIL MAKE-OBJECT LISTP LIST APPLY :ADD-SLOT SEND :MAKE-PROTOTYPE SET) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :ISNEW #K(#(80 2 0 1 23 0 0 0 38 1 2 25 2 0 2 1 2) #(0) #(CALL-NEXT-METHOD :MAKE-HYPERLOG SEND) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:ISNEW) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((XLISP::ADD-METHOD VISTA-HYPER-INSTALL-PROTO (QUOTE :MAKE-HYPERLOG) (FUNCTION (LAMBDA (SELF) (BLOCK :MAKE-HYPERLOG (SETF *VISTA-HYPERLOG* SELF) (SEND *VISTA-HYPERLOG* :INITIALIZE) (SETF *PRO-CHOICES* (IF *PRO-VERSION* 3 2)) (HYPER-DIALOG (DEFUN INSTALLATION-TYPE NIL "Sets *installation-type* to CUSTOM or DEFAULT and *installer-type* to User or Admin" (QUOTE (BUTTON-HYPER-DIALOG (SELECT (LIST " DEFAULT INSTALL " " CUSTOM INSTALL  " "DEVELOPER INSTALL") (ISEQ *PRO-CHOICES*)) :HEADER (FORMAT NIL "Welcome To ViSta's Installation. Please choose the appropriate installation method:") :BUTTON-TEXT (SELECT (LIST (FORMAT NIL "Choose DEFAULT INSTALL if you will be the only person~%using ViSta on this machine.") (FORMAT NIL "Choose CUSTOM INSTALL if you are a user who will be sharing~%ViSta with others on this machine, or if you are a system or~%network administrator installing ViSta on a server or on a~%machine where it will be used by more than one user.") "Choose DEVELOPER INSTALL to use your developer rights.") (ISEQ *PRO-CHOICES*)) :TITLE "ViSta - The Visual Statistics System" :LINKS (SELECT (LIST (QUOTE (VISTA)) (QUOTE (CUSTOM-INSTALL)) (QUOTE (VISTA))) (ISEQ *PRO-CHOICES*)) :ACTION (SELECT (LIST (QUOTE (SEND *VISTA-HYPERLOG* :SET-DEFAULT-INSTALL)) (QUOTE (SETF *INSTALLATION-TYPE* "CUSTOM")) (QUOTE (SEND *VISTA-HYPERLOG* :SET-DEVEL-INSTALL))) (ISEQ *PRO-CHOICES*)) :DIVIDER (FORMAT NIL "Click INFO for the current status of the installation.~%Click EXIT to exit the installation.") :EXIT T :INFO (QUOTE (SEND *VISTA-HYPERLOG* :SUMMARY 0 T)) :HELP (QUOTE (SEND *VISTA-HYPERLOG* :GET-INSTALLER-TYPE-HELP)) :LAYOUT (LIST (LIST (QUOTE INFO) (QUOTE EXIT))) :SUPERVISOR *VISTA-HYPERLOG*))) (DEFUN CUSTOM-INSTALL NIL (QUOTE (BUTTON-HYPER-DIALOG (LIST "Next >") :BUTTON-TEXT (LIST (FORMAT NIL "When you click NEXT you will see the~%first in a series of dialog boxes asking~%for initialization information.~2%Use the buttons at the bottom to~%understand and revise the installation")) :DIVIDER (FORMAT NIL "HELP explains how to use the dialog~%INFO shows installation's current state.~%FIRST restarts the installation~%BACK goes back to the previous step") :TITLE "ViSta - The Visual Statistics System" :HEADER "Welcome to ViSta's Custom Installation" :FOOTER (FORMAT NIL "INSTALLATION LOG: ~ainstall.log" *DEFAULT-PATH*) :FIRST T :BACK (QUOTE (INSTALLATION-TYPE)) :LINKS (LIST (QUOTE (COMPUTING-ENVIRONMENT))) :ACTION (LIST (QUOTE (NIL))) :HELP (QUOTE (SEND *VISTA-HYPERLOG* :GET-CUSTOM-INSTALL-HELP)) :INFO (QUOTE (SEND *VISTA-HYPERLOG* :SUMMARY 0 T)) :LAYOUT (LIST (LIST (QUOTE HELP) (QUOTE INFO) (QUOTE FIRST) (QUOTE BACK))) :SUPERVISOR *VISTA-HYPERLOG*))) (DEFUN COMPUTING-ENVIRONMENT NIL "Sets *computing-environment* to COMPUTER or NETWORK. If NETWORK, also sets *number-of-users*=Many, *user-type*=NetUser, *pro-version*=nil, *update-pref-files* " NIL " and *installer-type* to Admin" (QUOTE (BUTTON-HYPER-DIALOG (LIST "THIS COMPUTER" "THE NETWORK  ") :BUTTON-TEXT (LIST (FORMAT NIL "Choose THIS COMPUTER if ViSta will~%only be used on this Computer") (FORMAT NIL "Choose THE NETWORK if ViSta will~%be used on a network of computers")) :TITLE "ViSta - The Visual Statistics System" :HEADER "For Which Computing Environment is ViSta Being Installed?" :FIRST T :BACK (QUOTE (CUSTOM-INSTALL)) :LINKS (LIST (QUOTE (NUMBER-OF-USERS)) (QUOTE (INI-LOCATION 4))) :ACTION (LIST (QUOTE (PROGN (SETF *COMPUTING-ENVIRONMENT* "COMPUTER") (SETF *INSTALLER-TYPE* "User") (SETF *NUMBER-OF-USERS* "ONE") (SETF *USER-TYPE* "User") (SET-USER-PRIVILEGES "User"))) (QUOTE (PROGN (SETF *COMPUTING-ENVIRONMENT* "NETWORK") (SETF *INSTALLER-TYPE* "Admin") (SETF *NUMBER-OF-USERS* "MANY") (SETF *USER-TYPE* "NetUser") (SET-USER-PRIVILEGES "NetUser")))) :HELP (QUOTE (SEND *VISTA-HYPERLOG* :GET-INSTALLATION-TYPE-HELP)) :INFO (QUOTE (SEND *VISTA-HYPERLOG* :SUMMARY 0 T)) :LAYOUT (LIST (LIST (QUOTE HELP) (QUOTE INFO) (QUOTE FIRST) (QUOTE BACK))) :SUPERVISOR *VISTA-HYPERLOG*))) (DEFUN NUMBER-OF-USERS NIL (QUOTE (CHOICE-HYPER-DIALOG "ViSta will be used on this computer by:" (QUOTE ("Just One User" "Several Users ")) :TITLE "ViSta - The Visual Statistics System" :HEADER "How Many Users Will Be Using ViSta on This Computer?" :FIRST T :BACK (QUOTE (COMPUTING-ENVIRONMENT)) :NEXT (LIST (QUOTE (INI-LOCATION 2)) (QUOTE (INI-LOCATION 3))) :NEXT-IN-BODY T :ACTION (LIST (QUOTE (PROGN (SETF *NUMBER-OF-USERS* "ONE") (SETF *USER-TYPE* "User") (SET-USER-PRIVILEGES "User"))) (QUOTE (PROGN (SETF *NUMBER-OF-USERS* "MANY") (SETF *USER-TYPE* "NetUser") (SET-USER-PRIVILEGES "NetUser")))) :EXIT T :HELP (QUOTE (SEND *VISTA-HYPERLOG* :GET-USER-TYPE-HELP)) :INFO (QUOTE (SEND *VISTA-HYPERLOG* :SUMMARY 0 T)) :LAYOUT (LIST (LIST (QUOTE HELP) (QUOTE INFO) (QUOTE FIRST) (QUOTE BACK))) :SUPERVISOR *VISTA-HYPERLOG*))) (DEFUN INI-LOCATION (N) (SETF *INI-LOC-CHOICE-NUM* N) (QUOTE (CHOICE-HYPER-DIALOG "Locate ViSta's WXLS32.INI file in" (SELECT (LIST "This computer's ViSta Directory" "This Computer's System Directory" "The Users' Home Directories " "The Server's System Directory") (ISEQ *INI-LOC-CHOICE-NUM*)) :TITLE "ViSta - The Visual Statistics System" :HEADER "Where Do You Want ViSta's WXLS32.INI File to be Located?" :FIRST T :BACK T :NEXT-IN-BODY T :NEXT (SELECT (LIST (QUOTE (SAVE-WORK-DIRECTORY)) (QUOTE (SAVE-WORK-DIRECTORY)) (QUOTE (SAVE-WORK-DIRECTORY)) (QUOTE (SAVE-WORK-DIRECTORY))) (ISEQ *INI-LOC-CHOICE-NUM*)) :ACTION (SELECT (LIST (QUOTE (SET-INI-FILE 0)) (QUOTE (SET-INI-FILE 1)) (QUOTE (SET-INI-FILE 2)) (QUOTE (SET-INI-FILE 3))) (ISEQ *INI-LOC-CHOICE-NUM*)) :HELP (QUOTE (SEND *VISTA-HYPERLOG* :GET-INI-LOC-HELP)) :INFO (QUOTE (SEND *VISTA-HYPERLOG* :SUMMARY 0 T)) :LAYOUT (LIST (LIST (QUOTE HELP) (QUOTE INFO) (QUOTE FIRST) (QUOTE BACK))) :SUPERVISOR *VISTA-HYPERLOG*))) (DEFUN SAVE-WORK-DIRECTORY NIL (QUOTE (EDIT-TEXT-HYPER-DIALOG (SELECT (STRCAT *USER-PATH* "                               ") (ISEQ (MIN 35 (LENGTH *USER-PATH*)))) :TITLE "ViSta - The Visual Statistics System" :HEADER "The Default Directory For the User to Save Work In Is:" :FIRST T :BACK (QUOTE (INI-LOCATION *INI-LOC-CHOICE-NUM*)) :NEXT (LIST (QUOTE (READY-TO-SETUP))) :NEXT-IN-BODY T :ACTION (LIST (QUOTE (PROGN (SETF HL (SEND SELF :HYPER-DIALOG)) (SETF EDITEXT (WHEN HL (SEND HL :EDITED-TEXT))) (SET-NEW-USER-PATH EDITEXT)))) :HELP (QUOTE (SEND *VISTA-HYPERLOG* :GET-SAVE-WORK-HELP)) :INFO (QUOTE (SEND *VISTA-HYPERLOG* :SUMMARY 0 T)) :LAYOUT (LIST (LIST (QUOTE HELP) (QUOTE INFO) (QUOTE FIRST) (QUOTE BACK))) :SUPERVISOR *VISTA-HYPERLOG*))) (DEFUN READY-TO-SETUP NIL "Asks if user ok with current setup" (QUOTE (BUTTON-HYPER-DIALOG (LIST "REVISE" "INSTALL") :BUTTON-TEXT (LIST "Click REVISE to revise the installation" "Click INSTALL to install and Run ViSta") :TITLE "ViSta - The Visual Statistics System" :HEADER "ViSta Is Ready to Install." :ACTION (LIST (QUOTE (SEND *VISTA-HYPERLOG* :INITIALIZE)) (QUOTE (SEND *VISTA-HYPERLOG* :SAVE-INSTALLATION))) :FIRST T :BACK (QUOTE (SAVE-WORK-DIRECTORY)) :LINKS (LIST (QUOTE (INSTALLATION-TYPE)) (QUOTE (VISTA))) :HELP (QUOTE (SEND *VISTA-HYPERLOG* :READY-TO-DO-INSTALL)) :INFO (QUOTE (SEND *VISTA-HYPERLOG* :SUMMARY 0 T)) :LAYOUT (LIST (LIST (QUOTE HELP) (QUOTE INFO) (QUOTE FIRST) (QUOTE BACK))) :SUPERVISOR *VISTA-HYPERLOG*))))))) NIL) EVAL) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:MAKE-HYPERLOG) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :START-HYPERLOG #K(#(80 2 0 0 23 0 0 0 25 1 0 0) #(0) #(INSTALLATION-TYPE TOP-LEVEL) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:START-HYPERLOG) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SET-USER-PRIVILEGES #K(#(80 3 0 0 25 0 0 1 2) #(0) #(SET-USER-PRIVILEGES) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SET-USER-PRIVILEGES) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SET-VISTA-PRO-VERSION #K(#(80 2 0 0 25 0 0 0) #(0) #(SET-VISTA-PRO-VERSION) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SET-VISTA-PRO-VERSION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :INITIALIZE #K(#(80 2 0 1 38 0 2 25 1 0 2 1 2) #(0) #(:SET-DEFAULT-INSTALL SEND) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:INITIALIZE) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SET-DEVEL-INSTALL #K(#(80 2 1 0 1 38 1 3 25 2 0 3 1 3 2) #(0) #(T :SET-DEFAULT-INSTALL SEND) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SET-DEVEL-INSTALL) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SET-DEFAULT-INSTALL #K(#(77 1 2 1 9 9 0 1 2 3 4 5 6 7 8 3 64 2 12 21 2 1 2 2 0 2 13 1 3 0 3 13 49 10 13 0 49 11 11 0 49 12 10 0 49 13 9 0 49 14 8 0 49 15 7 0 49 16 7 0 49 17 11 0 21 0 4 8 12 21 0 5 6 13 0 4 14 1 7 0 7 14 23 18 0 1 14 1 9 23 18 0 0 23 19 0 1 6 23 20 0 1 5 25 21 0 0) #(0 24 29 32 69 74 79 82 89 93) #(NIL "Developer" "C:\\My Documents" "ViSta" "User" "ONE" "COMPUTER" "DEFAULT" T #(%NOT-SUPPLIED) *PRO-VERSION* *INITIAL-INSTALL* *INSTALLATION-TYPE* *COMPUTING-ENVIRONMENT* *NUMBER-OF-USERS* *INSTALLER-TYPE* *USER-TYPE* *UPDATE-PREF-FILES* SET-VISTA-PRO-VERSION SET-INI-FILE SET-NEW-USER-PATH SET-MENU-ITEM-DEFAULTS) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SET-DEFAULT-INSTALL) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(SET-MENU-ITEM-DEFAULTS #K(#(80 1 3 0 1 2 2 38 3 4 21 0 1 2 4 49 4 3 0 49 5 3 0 49 6 3 0 49 7 3 0 49 8 3 0 49 9 3 0 49 10 3 0 1 5 38 11 5 50 2 3 4 2 5 49 4 1 0 49 5 3 0 49 6 3 0 49 7 3 0 49 8 3 0 49 9 3 0 49 10 3 0 1 5 49 4 1 0 49 5 1 0 49 6 3 0 49 7 1 0 49 8 3 0 49 9 1 0 49 10 1 0 11 0 3) #(0 15 45 54 84 112) #(NIL "User" T *PRO-VERSION* *SHOW-DEVEL-MENU* *UPDATE-PREF-FILES* *CHANGE-PROFILES* *CHANGE-TOOLBAR* *CHANGE-WORKMAP* *CHANGE-EXCESS* *CONFIGURE* *USER-TYPE*) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(SET-NEW-USER-PATH #K(#(80 2 0 1 49 0 1 0 38 0 2 49 1 2 0 38 1 0 57 0) #(0) #(*USER-DIR-NAME* *USER-PATH*) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(SET-INI-FILE #K(#(80 2 8 0 1 2 3 4 5 6 7 2 23 8 10 1 1 21 0 1 5 10 37 61 2 3 1 2 0 6 11 1 4 0 5 11 49 9 11 0 23 10 11 4 9 8 4 3 23 11 11 2 11 1 49 12 11 0 1 10 23 13 11 1 1 21 0 6 10 11 50 2 7 8 1 8 0 6 11 1 9 0 5 11 49 9 11 0 49 12 1 0 38 12 10 50 2 11 12 10 9 38 14 10 23 15 10 2 10 7 49 16 10 0 57 0 38 12 10 50 2 13 14 10 8 38 17 10 23 15 10 2 10 7 49 16 10 0 57 0 38 14 10 23 15 10 2 10 7 49 16 10 0 38 18 10 38 19 11 25 20 0 2 10 11) #(0 22 28 33 36 60 70 76 81 84 92 101 116 125 140) #(1 "Server" "UserHome" T NIL "wxls32.ini" "System" "ViSta" INTEGERP *INI-AT-HOME* LIST SELECT *INI-LOC-TYPE* STRINGP *DEFAULT-PATH* STRCAT *INI-FILE* *SYSTEM-PATH* *VISTA-HYPERLOG* :GET-INI-LOC-HELP SEND) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SAVE-INSTALLATION #K(#(80 2 1 0 1 38 1 3 49 1 2 0 23 2 0 0 23 3 0 0 49 1 3 0 57 0) #(0) #(T *UPDATE-PREF-FILES* WRITE-INI-PATHS WRITE-PREFLOAD-FILE) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SAVE-INSTALLATION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(VISTA-INSTALL-INFO #K(#(80 1 2 0 1 2 38 2 3 38 3 4 25 4 0 4 3 4 2 1) #(0) #(T 0 *VISTA-HYPERLOG* :SUMMARY SEND) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SUMMARY #K(#(77 1 3 1 36 36 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 23 38 37 40 38 38 41 23 39 42 2 39 38 23 40 40 3 40 41 42 38 37 41 38 38 42 38 41 43 38 42 44 38 43 45 23 44 45 1 45 38 45 46 50 2 1 2 46 12 0 4 46 1 3 0 5 46 38 45 47 50 2 4 5 47 12 0 18 47 1 6 0 6 47 38 46 48 23 44 48 1 48 38 19 49 21 0 7 8 49 0 7 49 1 9 0 8 49 38 47 50 21 0 10 11 50 0 9 50 1 12 0 10 50 23 39 43 10 39 37 43 44 45 46 47 48 49 50 23 40 41 3 41 42 43 38 37 42 38 38 43 23 39 44 2 39 36 23 40 42 3 42 43 44 23 48 43 4 35 34 33 32 23 48 44 4 31 30 29 28 23 48 45 2 30 29 38 47 46 21 0 13 14 46 23 49 43 2 43 44 1 19 38 45 47 50 2 15 16 47 12 0 44 43 1 19 38 45 47 50 2 17 18 47 11 0 45 43 1 19 0 39 43 38 23 44 38 22 45 38 21 46 38 20 47 23 48 44 4 44 45 46 47 38 19 45 38 18 46 38 17 47 38 16 48 38 15 49 23 48 45 5 45 46 47 48 49 38 17 46 38 16 47 23 48 46 2 46 47 23 48 47 4 27 26 25 24 23 48 48 5 23 22 21 20 19 23 48 49 2 21 20 38 47 50 21 0 20 21 50 23 49 50 2 44 45 1 26 38 45 51 50 2 22 23 51 12 0 45 50 1 26 38 45 51 50 2 24 25 51 11 0 46 50 1 26 0 39 50 38 47 51 21 0 27 28 51 23 49 51 2 47 48 1 33 38 45 52 50 2 29 30 52 12 0 48 51 1 33 38 45 52 50 2 31 32 52 11 0 49 51 1 33 0 39 51 51 44 52 0 23 50 52 3 52 43 50 38 37 53 38 38 54 23 40 53 3 53 54 18 38 51 54 38 38 55 38 52 56 51 43 57 1 52 23 40 54 5 54 55 17 56 57 38 51 55 38 38 56 38 52 57 51 41 58 0 23 40 55 5 55 56 16 57 58 38 53 56 38 38 57 38 52 58 51 40 59 0 23 40 56 5 56 57 15 58 59 38 51 57 38 38 58 23 40 57 3 57 58 14 38 54 58 38 38 59 23 48 60 1 41 23 48 61 2 53 52 23 48 61 2 42 61 23 48 60 2 60 61 21 0 34 35 3 0 57 61 1 36 23 48 61 3 54 55 56 23 48 60 3 40 60 61 38 55 61 38 56 62 23 40 52 7 58 59 60 61 13 62 57 38 57 53 23 40 52 2 52 53 50 2 37 38 52 16 11 0 39 51 39 53 0 25 50 0 3 53 51 52 80 3 0 0 25 58 0 2 1 2 80 1 0 0 25 59 0 0 80 1 1 12 0 11 0 1 80 2 0 1 38 60 2 25 40 0 2 1 2 80 2 0 1 51 42 2 0 25 50 0 2 2 1 80 3 0 3 38 61 3 38 38 4 38 60 5 25 40 0 5 3 4 1 5 2) #(0 91 96 99 108 113 116 132 137 140 148 153 156 226 234 243 248 257 262 265 352 360 369 374 383 388 391 399 407 416 421 430 435 438 576 581 588 627 630 641 651 659 667 680 694) #("a SINGLE user" "SEVERAL users" "s " "DO" "DO NOT " "HAS" "DOES NOT HAVE" "NetUser" "User" "ViSta Installation Summary Dialog" "OK" "Help" "Revise" "Accept" " " *CHANGE-EXCESS* *CHANGE-WORKMAP* *CHANGE-TOOLBAR* *CHANGE-PROFILES* *UPDATE-PREF-FILES* *CHANGE-DIRECTORIES* *CHANGE-FONTS* *CONFIGURE* *SHOW-DEVEL-MENU* "Changing Excel's ViSta Menu" "Changing the WorkMap's Appearance" "Changing the Toolbar's Buttons" "Changing the Startup Options" "Changing Directories (caution)" "Changing Fonts (caution)" "Changing Menus (caution)" "The Developer's Menu (needed)" "User privilages include~%(you can customize these here):" "This is a ~a Installation.~2%1 ViSta is being installed on this ~a~%    (can be \"COMPUTER\" or \"NETWORK\").~2%2 ViSta's wxls32.ini file will be located in:~%     ~a~2%3 ViSta will be used by ~a~%    (can be \"SINGLE\" or \"SEVERAL\").~2%4 The User~acan save results in: ~%    ~a~2%5 Changes made by the User to ViSta ~a~%    persist across sessions.~2%6 The User ~a developer rights." "SUMMARY OF CURRENT INSTALLATION STATUS~2%EACH UPPERCASE WORD IS A VARIABLE WHOSE VALUE IS SET DURING INSTALLATION." NIL #(NIL) TEXT-ITEM-PROTO :NEW FORMAT SEND *INSTALLATION-TYPE* *COMPUTING-ENVIRONMENT* *INI-FILE* STRING-UPCASE *USER-TYPE* *USER-DIR-NAME* *PRO-VERSION* LIST COMBINE MAPCAR MODAL-BUTTON-PROTO :ACTION BUTTON-ITEM-PROTO MODAL-DIALOG-PROTO :TITLE :DEFAULT-BUTTON :MODAL-DIALOG SET GET-CONFIG-HELP :VALUE TOGGLE-ITEM-PROTO) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SUMMARY) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :GET-CUSTOM-INSTALL-HELP #K(#(80 2 2 0 1 1 23 2 4 2 3 2 25 3 0 1 4) #(0) #("In the previous dialog you chose~2%\"CUSTOM INSTALL\"~2%This is appropriate if you are a user who will be sharing~%ViSta with others on this machine, or if you are a system or~%network administrator installing ViSta on a server or on a~%machine where it will be used by more than one user.~2%If \"CUSTOM INSTALL\" was the wrong choice, click on BACK.~%If \"CUSTOM INSTALL\" was the right choice, click on NEXT." NIL FORMAT MESSAGE-DIALOG) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:GET-CUSTOM-INSTALL-HELP) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :GET-INSTALLER-TYPE-HELP #K(#(80 2 2 0 1 1 23 2 4 2 3 2 25 3 0 1 4) #(0) #("Choose \"DEFAULT INSTALL\" if you will be the only person~%using ViSta on this machine.~2%Choose \"CUSTOM INSTALL\" if you are a user who will be sharing~%ViSta with others on this machine, or if you are a system or~%network administrator installing ViSta on a server or on a~%machine where it will be used by more than one user" NIL FORMAT MESSAGE-DIALOG) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:GET-INSTALLER-TYPE-HELP) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :GET-INSTALLATION-TYPE-HELP #K(#(80 2 2 0 1 1 23 2 4 2 3 2 25 3 0 1 4) #(0) #("This dialog determines which installation dialogs will be shown~2%Choice 1: ONLY ON THIS COMPUTER: A few dialogs are shown since most~%installation defaults are appropriate.~2%Choice 2: ON A NETWORK OF COMPUTERS: Several dialogs are shown~%since appropriate defaults vary from one network to the next.~2%The second choice should only be used by Administrators or Advanced Users.~2%" NIL FORMAT ONE-BUTTON-DIALOG) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:GET-INSTALLATION-TYPE-HELP) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :GET-USER-TYPE-HELP #K(#(80 2 2 0 1 1 23 2 4 2 3 2 25 3 0 1 4) #(0) #("This dialog controls access to certain ViSta features~%which can permanently modify the user's environment.~2%Choice 1: JUST ONE USER of a locally Installed ViSta~%has full access to all features. Modifications~%to ViSta's environment are saved between sessions.~2%Choice 2: SEVERAL USERS of either a locally or a~%remotely installed ViSta have limited access to~%features which modify ViSta's user environment.~%Additionally, these users cannot save changes between~%sessions. They can only write to the User Directory,~%which is specified later in the installation.~2%" NIL FORMAT MESSAGE-DIALOG) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:GET-USER-TYPE-HELP) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :GET-INI-LOC-HELP #K(#(80 2 2 0 1 1 23 2 4 2 3 2 25 3 0 1 4) #(0) #("This message is addressed to the Network Administrator~2%The WXLS32.INI file determines ViSta's startup environment.~%The Installation give you 4 ways to locate the .INI file,~%however, the last two choices cannot be carried out without~%you taking additional actions.~2%You can choose to place the .INI file in the ViSta directory,~%(the directory containing the ViSta.exe file), on in this computer's~%system directory.~2%However, to locate the .INI file in the network server's system~%directory, or in the users' home directories on the network you~%must to take additional steps.~2%To install on the network server's system directory you must be~%using the network server and choose \"This Computer's System~%Directory\". To install in the user's directories you must choose~%\"This Computer's ViSta Directory\" and then move the .INI file~%to the appropriate locations.~2%Since the .INI file must be writable by each user, the~%preferred location depends on details of your network's~%access privileges~2%" NIL FORMAT MESSAGE-DIALOG) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:GET-INI-LOC-HELP) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :GET-CONFIG-HELP #K(#(80 2 2 0 1 1 23 2 4 2 3 2 25 3 0 1 4) #(0) #("You can revise or accept this configuration,~%including the UPPER CASE values~%in the text at the top of the dialog." NIL FORMAT MESSAGE-DIALOG) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:GET-CONFIG-HELP) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :READY-TO-DO-INSTALL #K(#(80 2 2 0 1 1 23 2 4 2 3 2 25 3 0 1 4) #(0) #("Click NEXT if you are ready to install ViSta~%
Click BACK or FIRST is you wish to change the installation" NIL FORMAT MESSAGE-DIALOG) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:READY-TO-DO-INSTALL) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :GET-SAVE-WORK-HELP #K(#(80 2 2 0 1 1 23 2 4 2 3 2 25 3 0 1 4) #(0) #("This dialog determines the initial directory location~%for dialog boxes the user uses to save work results.~%The user must have write privileges for this location." NIL FORMAT MESSAGE-DIALOG) 0 NIL) VISTA-HYPER-INSTALL-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:GET-SAVE-WORK-HELP) 0 NIL)) EVAL) 0 NIL)
